Imports pixolut.BizBlox

Public Class LunchOrder
    Inherits DataObject

'START BizBlox Generated Code : Do not remove or alter this comment
'Last Updated : Tuesday, 24 August 2004 4:01:21 PM
'BizBlox Version : 0.9.1.22818
#Region "BizBlox Generated Code"

    Public Shadows Enum Columns
        LunchOrderID
        StudentID
        FoodID
        dt_OrderDate
        Quantity
    End Enum

    Public Overrides Function UidColumn() As [enum]
        Return Columns.LunchOrderID
    End Function

    Public Overrides Function TableName() As String
        Return "LunchOrder"
    End Function

    Public Sub New()
        MyBase.New()
    End Sub

    Public Sub New(ByVal uid As Guid)
        MyBase.New(uid)
    End Sub


    Private m_LunchOrderID As System.Guid
    Public Property LunchOrderID() As System.Guid
        Get
            Return m_LunchOrderID
        End Get
        Set(ByVal Value As System.Guid)
            Me.Touch(0)
            m_LunchOrderID = Value
        End Set
    End Property

    Private m_StudentID As System.Guid
    Public Property StudentID() As System.Guid
        Get
            Return m_StudentID
        End Get
        Set(ByVal Value As System.Guid)
            Me.Touch(1)
            m_StudentID = Value
        End Set
    End Property

    Private m_FoodID As System.Guid
    Public Property FoodID() As System.Guid
        Get
            Return m_FoodID
        End Get
        Set(ByVal Value As System.Guid)
            Me.Touch(2)
            m_FoodID = Value
        End Set
    End Property

    Private m_dt_OrderDate As System.DateTime
    Public Property dt_OrderDate() As System.DateTime
        Get
            Return m_dt_OrderDate
        End Get
        Set(ByVal Value As System.DateTime)
            Me.Touch(3)
            m_dt_OrderDate = Value
        End Set
    End Property

    Private m_Quantity As System.Int32
    Public Property Quantity() As System.Int32
        Get
            Return m_Quantity
        End Get
        Set(ByVal Value As System.Int32)
            Me.Touch(4)
            m_Quantity = Value
        End Set
    End Property

    Public Function GetByStudentID() As Student
        Dim obj as new Student(StudentID)
        obj.Load()
        Return obj
    End Function

    Public Function GetByFoodID() As Food
        Dim obj as new Food(FoodID)
        obj.Load()
        Return obj
    End Function
#End Region
'END BizBlox Generated Code : Do not remove or alter this comment

End Class




